home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / STRINGS / TPSTR7 / EXAM09.PAS < prev    next >
Pascal/Delphi Source File  |  1993-03-10  |  3KB  |  65 lines
  1. Program Exam09;
  2.  
  3. {**************************************************************************}
  4. {                                                                          }
  5. { Ce programme démontre les possibilités de ChrnDelLI et ChrnDelLI_.       }
  6. {                                                                          }
  7. {**************************************************************************}
  8.  
  9. Uses
  10.   TpStr;
  11.  
  12. Var
  13.   S1 ,
  14.   S2 : String;
  15.  
  16. {  ---------------------------------------------------------------         }
  17. {  Procedure   ChrnDelLI(Var Str: String;Match: Char;Count,Index: Integer);}
  18. {  ---------------------------------------------------------------         }
  19. {                                                                          }
  20. {  Effet     : Détruit tous les <Count> premiers caractères de <Str> tant  }
  21. {              qu'ils sont égaux à <Match> à partir de <Str[index]>.       }
  22. {                                                                          }
  23. {  Usage     : Chaîne pascal.                                              }
  24. {                                                                          }
  25. {  Vitesse   : 7800/s                                                      }
  26. {                                                                          }
  27. { -------------------------------------------------------------------------}
  28.  
  29. Procedure Test1;
  30. Begin
  31.   S1 := 'Les chaussettes de l''archi-duchesse sont-elles sèches, archi-sèches';
  32.   ChrnDelLI(S1,'s',2,9);
  33.   S1 := '00003.14116';
  34.   ChrnDelLI(S1,'0',2,2);
  35. end;
  36.  
  37. {  ---------------------------------------------------------------         }
  38. {  Function    ChrnDelLI_(Str: String;Match: Char;Count,Index: Integer):String;   }
  39. {  ---------------------------------------------------------------         }
  40. {                                                                          }
  41. {  Effet     : Idem.                                                       }
  42. {                                                                          }
  43. {  Usage     : Idem.                                                       }
  44. {                                                                          }
  45. {  Vitesse   : 7800/s                                                      }
  46. {                                                                          }
  47. {  Note      : Identique à ChrnDelLI mais transformé en fonction, donc     }
  48. {              <Str> n'est pas modifié.                                    }
  49. { -------------------------------------------------------------------------}
  50.  
  51. Procedure Test2;
  52. Begin
  53.   S1 := 'Les chaussettes de l''archi-duchesse sont-elles sèches, archi-sèches';
  54.   S2 := ChrnDelLI_(S1,'s',0,9);
  55.   S1 := '00003.14116';
  56.   S2 := ChrnDelLI_(S1,'0',2,2);
  57. end;
  58.  
  59. Begin
  60.   Test1;
  61.   Test2;
  62. End.
  63.  
  64. { -------------------------------------------------------------------------}
  65.